unit untativador;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Data.DB, Data.Win.ADODB,
  Vcl.Buttons, Vcl.ComCtrls, Vcl.Grids, Vcl.DBGrids,dateutils,inifiles;

type
  TForm1 = class(TForm)
    Sistema: TADOConnection;
    Memo1: TMemo;
    DateTimePicker1: TDateTimePicker;
    Label1: TLabel;
    SpeedButton1: TSpeedButton;
    CheckBox1: TCheckBox;
    SpeedButton2: TSpeedButton;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    senha: TADOQuery;
    procedure FormShow(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  servidor,codigo: string;
  i: integer;
  inifile: tinifile;

implementation

{$R *.dfm}


procedure converte (data: string);
begin
codigo:= '';
for i := 1 to length(data) do
begin

if data[i] = '1' then codigo:= codigo+ 'H';
if data[i] = '2' then codigo:= codigo+'B';
if data[i] = '3' then codigo:= codigo+'V';
if data[i] = '4' then codigo:= codigo+'A';
if data[i] = '5' then codigo:= codigo+'C';
if data[i] = '6' then codigo:= codigo+'D';
if data[i] = '7' then codigo:= codigo+'E';
if data[i] = '8' then codigo:= codigo+'N';
if data[i] = '9' then codigo:= codigo+'T';
if data[i] = '0' then codigo:= codigo+'S';
if data[i] = '/' then codigo:= codigo+'-';
end;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
memo1.Lines.Clear;
if fileexists('c:\loja\servidor.ini') then
begin
inifile:= tinifile.Create('c:\loja\servidor.ini');
servidor:= inifile.ReadString('configuracao','servidorbd',servidor);
Sistema.Connected:= false;
sistema.ConnectionString:= 'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Data Source='+servidor ;
Sistema.DefaultDatabase:='SISTEMA';
Sistema.Connected:= true;
senha.Open;
end;

DateTimePicker1.DateTime:= date;

end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
senha.Close;
senha.SQL.Clear;
senha.SQL.Add('delete from ativador');
senha.ExecSQL;

senha.Close;
senha.SQL.Clear;
senha.SQL.Add('select * from ativador');
senha.Open;



if checkbox1.Checked = false then
begin
converte(datetostr(datetimepicker1.Date));
senha.Append;
senha.FieldByName('codigo').AsString:= '00001';
senha.FieldByName('senha').AsString := codigo;
senha.FieldByName('data').AsString := datetostr(date);
senha.FieldByName('dia').value := DaysBetween(date,DateTimePicker1.Date)	;
senha.Post;
end;

if checkbox1.Checked = true then
begin
senha.Append;
senha.FieldByName('codigo').AsString:= '00001';
senha.FieldByName('senha').AsString := 'ILIMITADO';
senha.Post;
end;


showmessage('Sistema ativado com sucesso.');


end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
senha.Delete;
showmessage('Sistema Inativo.');
end;

end.
